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INTRODUCTION  /- 


During  the  PARKA  cruises  of  1968  and  1969  propagation  loss  measurements 
were  conducted  in  real-time  using  the  UNIVAC  1230  computer  system  installed 
aboard  USNS  SANDS.  The  real-time  analysis  of  the  data  demanded  a 
quality  control  system  which  would  enable  the  senior  scientist  to 
■^continually  monitor  the  data  as  the  experiment  progressed.  Procedure 
GRAPHIT  was  written  to  provide  this  capability.  Under  operator  control, 
time  series  plots  were  displayed  on  the  high  speed  Monroe  optical 
printer.  Any  of  the  200  available  combinations  of  plots  could  be 
plotted,  with  each  plot  displaying  the  results  of  the  latest  5  hours 
of  data.  Procedure  GRAPHIT,  its  usage  and  theory  of  operation  are 
described, in  this  memorandum. 
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j  This  memorandum  was  prepared  under  NUSC  Project  Title:  Long-Range 
Acoustic  Transmission  Experiments  for  Surveillance  Systems  Development; 
R.  Hasse  and  R.  Martin,  NUSC/NL  Principal  Investigators,  The  sponsoring 
activity  was  ONR,  Code  102 -OS,  Dr,  J.  B.  Hersey,  Program  Manager. 

AVAILABLE  GRAPHS 

\  A  total  of  two  hundred  different  graphs  are  available  to  the 
^requestor.  They  are  as  follows: 

Propagation  Loss  6  hydrophones  X 

Ambient  Noise  6  hydrophones  X 

Signal-to-Noise  Ratio  6  hydrophones  X 


5  frequencies 
5  frequencies 
5  frequencies 


Approved  for  public  release;distribution  unlimited. 
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GRAPH  FORMAT 


Each  graph  contains  the  latest  five  hours  of  data  plus  whatever  data 
has  been  taken  during  the  present  hour.  Following  the  identification 
header,  the  data  is  graphed  on  the  Monroe,  one  data  point  per  line,  six 
lines  per  inch.  The  data  is  scaled  ten  units  (dbor  degrees)  per  inch. 

A  grid  and  a  reference  line  are  also  plotted.  Appendix  A  contains  a 
facsimile  of  a  typical  graph.  (The  dots  do  not  produce  such  a  blanket ting 
effect  on  the  Monroe  printer). 

Following  the  processing  of  each  shot,  the  plot  data  was  written  on 
magnetic  tape.  At  the  end  of  each  hourly  sequence  of  shots,  an  end- of - 
file  mark  was  written  on  the  tape  to  provide  a  reierence  point. 


OPERATOR  USAGE 

When  a  graph  was  desired,  the  computer  operator  entered  the  requests 
on  the  teletype. 

When  the  computer  honored  the  message,  the  message  processor's 
executive  routine  (See  NUSL  Tech  Memo  2211-100-70)  called  on  routine  GRAF, 
which  would  set  bits,  as  indicated  by  the  message,  in  the  request  cells 
for  GRAPHIT.  Following  this,  procedure  GRAPHIT  was  called  and  outputted 
one  graph.  The  graphs  remaining  on  request  were  outputted  at  the  discre¬ 
tion  of  the  executive  routine.  See  Appendix  B  for  the  message  format 
and  codes  for  the  various  graphs. 


THEORY  OF  OPERATION 

When  GRAPHIT  is  called,  it  scans  the  request  cells,  searching  for 
a  non-zero  word.  If  none  is  found,  GRAPHIT  exits.  If  a  non-zero  request 
cell  is  located,  the  routine  transfers  control  to  the  appropriate  label¬ 
ing  segment.  Here  the  request  cell  ii.  scanned  for  a  set  bit.  The  posi¬ 
tion  of  the  set  bit  within  the  request  cell  supplies  the  program  with  the 
relative  position  of  the  data  within  the  input  buffer  from  magnetic  tape 
as  well  as  the  hydrophone  and  frequency  designations.  The  relative 
position  of  the  data  is  converted  to  a  core  location  by  adding  on  the 
base  address  of  the  particular  data  block.  This  address  is  then  stored 
in  a  specific  location  enabling  the  program  to  reference  the  correct 
data. 
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The  program  next  prints  the  four-line  identifying  hepder .  The  first 
line  gives  the  type  of  graph.  The  second  line  identifies  the  particular 
hydrophone- frequency  or  hydrophone-arrival  combination.  The  third  line 
gives  the  latest  range  value  and  the  fourth  the  present  date  and  time. 

Next,  a  jump- table  index  is  set,  directing  the  program  to  the  cor¬ 
rect  plotting  segment  after  each  data  record  is  read. 

The  program  back- reads  the  magnetic  tape,  counting  records  as  it 
reads,  until  it  encounters  an  end  of  file  mark.  Then  five  files  are 
back-spaced.  This  positions  the  tape  at  the  start  of  the  latest  five 
hours  of  data.  The  tape  is  now  read  forward,  one  record  at  a  time.  If 
a  data  record  is  read,  the  ASCII  code  for  the  plot  symbol,  either  a  D, 
representing  a  deep  shot,  or  an  S,  representing  a  shallow  shot,  is  put 
in  the  B5  register.  The  data  value  is  rounded  off  to  the  nearest  integer 
and  is  converted  from  dB  or  degrees  to  a  printer  column  position  by  add¬ 
ing  the  proper  conversion  factor.  The  column  position  is  placed  in  the 
B4  register.  If  it  is  a  shallow  shot,  B4  is  incremented  by  20  so  that  the 
data  is  plotted  20  columns  to  the  right  of  the  deep  shots.  The  80  word 
output  buffer  is  flooded  with  period  codes.  The  grid  symbols  are  placed 
every  tenth  column  and  a  reference  marker  is  placed  in  column  kl. 

If  the  data  point  falls  outside  the  80  word  buffer,  then  the  buffer 
is  sent  to  the  printer  without  the  data  point.  Otherwise,  the  code  for 
the  data  point  is  placed  in  the  column  position  specified  by  B4  and  the 
buffer  is  .sent  to  the  printer. 

The  read-print  sequence  continues  until  an  end-of-file  is  detected. 

If  it  is  not  the  sixth  file  msrk,  the  read-print  sequence  continues. 

When  the  sixth  file  mark  is  detected,  the  backward  record  count  is 
checked.  If  it  is  zero,  the  program  exits.  If  it  it?  not  zero,  another 
record  is  read,  the  data  plotted  and  the  backward  record  count  is 
decreased  by  one.  This  continues  until  the  count  reaches  zero.  At  this 
time  the  tape  is  back  at  its  original  position  and  the  program  exits. 
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Appendix  A 
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PROPAGATION  loss  vs  range 
HYDROPHONE  NO  1  FREQUENCY  1 

RANGE  1244,5 

MONTH  1  DAY  2  HOUR  3  MINUTE  4.  SECOND  5 
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Appendix  D 
Program  Listing 
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euTRy’seis  graph  request  bits 

KoP*oETMSG 

Cl*B1 

wKrtrii  tl\iT*A*W(MS«TAti+bl) 

Jp**OHGRAF*A<.ERO,MO  more  requests 

..  ......  .  Syb*A*90  . 

KjP*RP3*AP0S*QP  ERR 

_ fcNT»A*29U .  .  .  ..... _  .. ...  . ._.  .  . 

SUt>*A*w<MBQTAB+l+ttl)  •  ' 

KjP*MP3*AN£o*0P  EKK 
EuT*tt2*W (MSSTAB+B1 ) 
tNT*A*W(PU0S‘j»*l+B2) 
tNf*Q*l 

LSH*U*W (MSOTAb+l+Bl ) 

- -SEu*^0*m777TSEY~REQUESr  BIT 

STR* A*W ( PlOS*-1+B2 ) *  STORE  REQUEST 
'  EnT *bi  *2+B  1  *  NEXT  REQUEST 
JPoQRAFll 

*UhOKAF  '  RJP*URaPHXT*PUT  OUT  1  GRAPH 
EXIT  _  _ 
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PKOCEUuRceGHMPHIT 

uFANUCR 

CL^WiLSTucHfM) 

EnT*h*W(PLOS*)*AZcKO» WHICH  GRAPH 
JP*LPL0Sb 

t’N  l>A*w  ( HOl SE* )  *AZtRO 
JPeuUOlSu 

. -  - 

JPeLblGNOS  .* 

tH T *A*w { OtLT aPl* i *AZERO 

JpeUPLOlF 

EM  *A*w(AoA»)*ANQT 
ENT *m*W ( A0A$+1 ) eAZLRO 

__JP*UAB^.EAoA  _  . 

tH r *A*W ( SIPLOi ) *ANOT 
Ef*T*A*W  (SIPLOSU )  *#ZERO 
jp*laslesppl 
K£TUrN*NO  REQUESTS 
TESTSUai TSEnTKY 

_  _  _  .  _  ; _ .... 

USM*AQ*29D * POSl T ION  FOR  TESTING 
RPT*SOO  _  .  ...  _  .  . . 

LSH*AQ*1*ANEG»TEST  FOR  A  REQUEST 
RETURN* NO  REuUEST 

. SEL*CL*4000000000* CLEAR  REQUEST 

LSH*AQ*1+B7 'REPOSITION 

. .  txXf 

HYJFRLQ  ENTRY 

Et4f*M*B7» SHIFT  COUNT 

KSH*AU*30y 

UIV*o 

ENT*bl*A 

.  EnT*A*l (PHONESHS+bl ) 

AD0*G*1 

STR*m*wCHYONo) 

STK*u**(FR£ONO) 

tXlT 

PRTHYOFKo.  entry _ 

CLEAK*24U*PLao 

FoRM-TEXT*Pl-Ab*25U*HYUROPHONE  NO* 
F 0«M-UEC*PLAU*4 1 DeHYDNO 

fokm-text*plau*sij*fkequency 

FoRM-UEC*PLaU*610*FRENHO 

en  r  *a*plhu 

monrue 

exit 

PRIRANvE  entry 

CLcA(\*£40*PI>A!i 

form-text *plml'»2sj*r«noe 

F0RN“UtC*Pl.Al>*3lU*RAi'«bL 

e.NT  eMePL/io 

MonRoE 

tXlT 

r“N"l  L'AE  ENTRY 

BlL-EXeSlIyT  OiwO. 

UplT*  f*.E 

R I u-lX  *SnO  T Chuf : 

CLtMn*24U*REAi' 
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FOr<M-TEXl  *PLAB*37U*UAY 
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MONROE 
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ST  «*Q*w(PLOSil»  RESTORE  REQUEST  CELL 
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EimT  *u / *PuOSSO« TA+B7 
STK*b7*L(PLPlCKUP) 'PICK  UP  AOURESS 
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form-text *pLAb*25D*PROPAQATiON*  Loss  vs  range 

fc'NT*M*PLAB 

MONROE 

rjp*prthyofrq 

kjp*prtrange 

KoP*PK_TIME._ 

'CL*L(PLOflT)*FOR  jp  table 
JP*6ETDATA 

ENT*«*tf (NOISES) ‘REQUEST  CELL 
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ENT*a*PLA0 
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F0RM-TEXT*PLaU*46U*HYD 
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MONROE 

RjP*PRTRANGE 

RjP*PRTIME 
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1*N0ISEGF 
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4*ANGAVGF 
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EnT*&4*5 * BACK  REAO 
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MAGTAPE 

tNT *0*2 O’ MASK  FOR  EOF 
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JP*GRAF1»YLS 
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.STK*0^JU.U.5Ti»EP.THJ  _  _ 

Exit 
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EnT  *0*65  *  CODE  FOR  S 

EnT*  Y-Q *L ( LSTDEPTN ) *ANOT ♦ SHALLOW  SHOT 
ENT*B4*20D+BHf SHIFT  UP  20DB 
EwT*U*£2  _ 

RPT*bOJ*AOV 
STK#**h (8F> 
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ENT*U*41 
RpT*7*A0Dli 
STR*J*W(BF*B6) *6RlO 
PjT»  72*W (BF+HOD) 

EnT*A*B4 

Jp*PRT2*ANEG*0FF  SCAuE 
SUO*A*80U 

JP*PKT2*AP0S*oFF  SCALE 
STR*05*L<BF+04) »U  OR  S  FOR  OATA  POiN. 
OUT*NO"nROE*W  (BUFLIM) 
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